home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2000 September / september_2000.iso / intercd / root / ^Linux / WindowMaker / util / wkdemenu.pl < prev    next >
Encoding:
Perl Script  |  1999-03-09  |  6.0 KB  |  237 lines
  1. #!/usr/bin/perl
  2. #
  3. #
  4. # kde2wmaker.pl:
  5. #
  6. #
  7. # This script, made for users of Window Maker (http://windowmaker.org) is to
  8. # be used along with KDE (http://www.kde.org).
  9. #
  10. #
  11. # The default directory, ~/.kde/share/applnk/apps, will contain various
  12. # sub-directories such as Development, Editors, Internet, etc. If for some
  13. # reason, you wish to use an alternate (parent) directory that contains the
  14. # various AppName.kdelnk files, it can be specified on the command line.
  15. #
  16. # The directory, if an alternate is specified, MUST be a parent directory to
  17. # any/all sub-directories.
  18. #
  19. # Command line usage:
  20. #    -d <KDE App.kdelnk dir> -f <output menufile> -s yes (print to STDOUT)
  21. #
  22. # Example command with args:
  23. #    -d ~/.kde/share/applnk -f ~/.kde2wmaker.menu -s yes
  24. #
  25. # When the script is run, it will write out a proper Window Maker "External
  26. # Menu" entry, that can be included in the menu. When the External Menu has
  27. # been correctly configured, the root menu will display a sub-menu containing
  28. # all of the KDE related items found. The script only needs to be run when/if
  29. # KDE is updated.
  30. #
  31. # 
  32. # Installation and Configuration:
  33. #
  34. # 1) If /usr/bin/perl is not the location of the perl binary on your system,
  35. #    the first line should be changed to reflect upon it's location.
  36. # 2) Run the script.
  37. # 3) Configure Window Maker's menu by editing ~/GNUstep/Defaults/WMRootMenu
  38. #    This could be done with any text editor, or by using WPrefs. Insert
  39. #    the following line (if done with a text editor) into the WMRootMenu file.
  40. #      ("External Menu", OPEN_MENU, "$HOME/.kde2wmaker.menu"),
  41. #    If done using WPrefs, simply "Add External Menu" from the drop down menu,
  42. #    then type: $HOME/.kde2wmaker.menu   into the "Menu Path/Directory List"
  43. #    textbox.
  44. # 4) Some KDE entries, such as "Pine" will require a terminal to execute it.
  45. #    There is a terminal varable below. You may use any terminal, XTerm is the
  46. #    default. Any command line options such as: -fg -bg, etc. can be
  47. #    specified in this variable as well.
  48. #
  49. #
  50. # Michael Hokenson - logan@dct.com
  51.  
  52.  
  53. ###
  54. ### Variables
  55. ###
  56.  
  57. ### The External Menu file, this should NEVER point to the root menu file
  58. $menufile = "$ENV{'HOME'}/.kde2wmaker.menu";
  59.  
  60. ### Base directory, location of all the KDE AppName.kdelnk files
  61. $basedir = "$ENV{'HOME'}/.kde/share/applnk/apps";
  62.  
  63. ### Terminal to use
  64. $term = "xterm";
  65.  
  66. ### Print to STDOUT, default is YES, a filename is specified
  67. $stdout = 1;
  68.  
  69.  
  70. ###
  71. ### Begin work
  72. ###
  73.  
  74. ### Process command line arguments
  75. foreach $arg(@ARGV) {
  76.     if($last) {
  77.         if($last eq "-d") {
  78.             $basedir = $arg;
  79.         } elsif($last eq "-f") {
  80.             $menufile = $arg;
  81.             $stdout = 0;
  82.         } 
  83.         undef($last);
  84.     } elsif($arg =~ /^-/) {
  85.         if($arg =~ /^-[dfs]$/) {
  86.             $last = $arg;
  87.         } else {
  88.             die("Unknown option: $arg\n\nUsage: kde2wmaker.pl\n\t-d <KDE App.kdelnk dir> [-f <output menufile>]\n");
  89.             &Usage;
  90.         }
  91.     }
  92. }
  93.  
  94. ### Make sure we actually exist
  95. if(-d $basedir) {
  96.  
  97.     ### Start some error checking
  98.     $errors = 0;
  99.  
  100.     ### See if there is an old menu file. If there is, rename it
  101.     unless($stdout) {
  102.         if(-e $menufile) {
  103.             print "\tFound $menufile, renaming\n\n";
  104.             rename $menufile, "$menufile.old";
  105.         }
  106.     }
  107.  
  108.     ### Read in the directories
  109.     opendir(KDE,$basedir);
  110.     @dirs = readdir(KDE);
  111.     closedir(KDE);
  112.  
  113.     ### Make sure there is actually something in $basedir
  114.     if($#dirs <= 1) {
  115.         print "ERROR:\n\tNothing found in $basedir\n\n";
  116.         exit(0);
  117.     }
  118.  
  119.     ### Begin writing the menu
  120.     unless($stdout) {
  121.         open(MENUFILE,"> $menufile");
  122.     }
  123.  
  124.     ### Start the main menu entry
  125.     if($stdout) {
  126.         print "\t\"KDE Applications\" MENU\n";
  127.     } else {
  128.         print MENUFILE "\t\"KDE Applications\" MENU\n";
  129.     }
  130.  
  131.     ### Begin processing the directories
  132.     foreach $dir(@dirs) {
  133.  
  134.         ### Handle each directory unless if its hidden (starts with .)
  135.         unless($dir =~ /^\./) {
  136.             ### Print out the sub directories
  137.             if($stdout) {
  138.                 print "\t\t\"$dir\" MENU\n";
  139.             } else {
  140.                 print MENUFILE "\t\t\"$dir\" MENU\n";
  141.             }
  142.  
  143.             ### Look in each directory and process individual files
  144.             opendir(SUB,"$basedir/$dir");
  145.             @subdirs = readdir(SUB);
  146.             closedir(SUB);
  147.  
  148.             ### Process files in each sub directory
  149.             foreach $sub(@subdirs) {
  150.  
  151.                 ### Once again, process all files but those that are hidden
  152.                 unless($sub =~ /^\./) {
  153.  
  154.                     ### Open the files
  155.                     open(SUB,"$basedir/$dir/$sub");
  156.  
  157.                     ### Search through the contents of the file
  158.                     while($line = <SUB>) {
  159.                         chop($line);
  160.                         ### Grab the name
  161.                         if($line =~ /^Name=/) {
  162.                             $pname = $line;
  163.                             $pname =~ s/Name=//;
  164.                         }
  165.                         ### Grab the command
  166.                         if($line =~ /^Exec=/) {
  167.                             $pargs = $line;
  168.                             $pargs =~ s/Exec=//;
  169.                         }
  170.                         ### If Terminal=1, then we need to execute a term
  171.                         if($line =~ /^Terminal=1$/) {
  172.                             $pargs = "$term -T \"$pname\" -e $pargs";
  173.                         }
  174.                     }
  175.  
  176.                     close(SUB);
  177.  
  178.                     ### Some error checking on the Name and Exec
  179.                     if($pname eq "") {
  180.                         $pname = $sub;
  181.                         $pname =~ s/\.kdelnk//;
  182.                     }
  183.                     if($pargs eq "") {
  184.                         $error = 1;
  185.                         $pargs = $sub;
  186.                         $pargs =~ s/\.kdelnk//;
  187.                         print "WARNING:\n\tNo Exec for $pname, using $pargs\n";
  188.                     }
  189.  
  190.                     ### Begin printing menu items
  191.                     if($stdout) {
  192.                         print "\t\t\t\"$pname\" EXEC $pargs\n";
  193.                     } else {
  194.                         print MENUFILE "\t\t\t\"$pname\" EXEC $pargs\n";
  195.                     }
  196.                 }
  197.             }
  198.  
  199.             ### Print the end of the sub menu
  200.             if($stdout) {
  201.                 print "\t\t\"$dir\" END\n";
  202.             } else {
  203.                 print MENUFILE "\t\t\"$dir\" END\n";
  204.             }
  205.         }
  206.     }
  207.  
  208.     ### Finish off the main menu entry
  209.     if($stdout) {
  210.         print "\t\"KDE Applications\" END\n";
  211.     } else {
  212.         print MENUFILE "\t\"KDE Applications\" END\n";
  213.     }
  214.  
  215.     unless($stdout) {
  216.         close(MENUFILE);
  217.     }
  218.  
  219.     ### Yaya!
  220.     if($errors) {
  221.         print "\n.. Finished. There were errors.\n";
  222.     }
  223. # else {
  224. #        print "\n.. Finished.\n";
  225. #    }
  226.  
  227.     exit(0);
  228. } else {
  229.     ### Error out :/
  230.     print "ERROR:\n\t$basedir not found\n\tTry another directory.\n";
  231.     exit(0);
  232. }
  233.  
  234. ###
  235. ### End work :))
  236. ###
  237.